home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_asm / oopasm / sborder.asm < prev    next >
Encoding:
Assembly Source File  |  1990-07-12  |  1.0 KB  |  48 lines
  1.     .MODEL    SMALL
  2.  
  3.     INCLUDE    equates.inc
  4.     INCLUDE    instance.inc
  5.     INCLUDE    messages.inc
  6.     INCLUDE    objects.inc
  7.  
  8. IF1
  9.     INCLUDE    macros.mac
  10.     INCLUDE    objects.mac
  11. ENDIF
  12.  
  13.     EXTRN    Border:WORD
  14.  
  15.     .CODE
  16.  
  17. COMMENT    %
  18. ==============================================================================
  19. Sets Border's instance variables for the single border style.
  20.  
  21. =============================================================================%
  22. setBorderStyle    PROC    NEAR
  23.     setInst        HChar,196,Border,1    ;Set horizontal char
  24.     setInst        VChar,179,,1        ;Set vertical char
  25.     setInst        ULChar,218,,1        ;Set upper left char
  26.     setInst        URChar,191,,1        ;Set upper right char
  27.     setInst        LLChar,192,,1        ;Set lower left char
  28.     setInst        LRChar,217,,1        ;Set lower right char
  29.     ret
  30. setBorderStyle    ENDP
  31.  
  32.  
  33.  
  34.     .DATA
  35.  
  36. defMsg    SBorder,\
  37.     Refresh,\
  38.     <setBorderStyle,,>
  39.  
  40. defObj    SBorder,\
  41.     <Border>,\
  42.     <>,\
  43.     <Refresh>
  44.  
  45.  
  46.  
  47.     END
  48.